home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Stock Market: Browser - Disc 1
/
TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin
/
mac
/
English (UK)
/
Main.dir
/
00001_Script_MAIN
next >
Wrap
Text File
|
2000-02-10
|
23KB
|
932 lines
global gAppButton, NewPath
on LaunchBrowser
if the machineType = 256 then
--Here is where you put the PC browser pathname:
--use backslashes for the PC "\"
--open NewPath&"CDBROWSE.EXE"
open the pathname&"Browser_1.fdb" with "Portfolio\PortBrws.exe"
else
--here is where you put the mac browser pathname:
--use colons for the mac":"
open "Browser 1:English (UK):Browser 1" with "Browser 1:English (US):Other Stuff:Portfolio Browser 4.0"
end if
end
On netLaunchNow
gotoNetPage "http://www.stockmarketphoto.com"
-- with browserName()
end
on startmovie
set the exitLock = 1
if voidP(newPath) then set newPath = the pathname
---Check if the Extra Buttons should be present
global gAppButton, gNumButtonB
---Fade out sound from opening or QuickTour
sound fadeout 3,200
sound fadeout 2,200
sound fadeout 1,200
---Rollover Variable(cursor changes on every sprite EXCEPT this sprite
global gPrimException
put 1 into gPrimException
----Initialize Button Variables:
global findingButt, moreButt, launchButt, QuitButt, AboutButt, CatButt, KeyButt, CompButt, TransButt, DigButt, CatalogButt, AppButt, OKButt, MenuButt, PrintButt, gFaxButt, gPrintButt, gLMenuButt, gLOKButt, gNumButt,NetButt, gOK2Butt
----Assign Buttons Generic TSM Button Script.
set findingButt=new(script"TSMButton",13,"Find",0,0,1,"FINDING")
set moreButt = new (script"TSMButton", 15,"More",0,0,1,"MORE1")
set launchButt=new(script"TSMButton",16,"Launch",0,0,1,"LAUNCH1")
--launch 2 here!!!
set netButt=new(script"TSMButton",17,"Internet",0,0,1,"INTERNET")
set quitButt=new(script"TSMButton",18,"Quit",0,0,1,"Quit1")
set aboutButt = new(script "TSMButton",19,"About",560,235,0,"About1")
set CatButt = new(script "TSMButton",22,"Cat",560,235,0,"Category")
set KeyButt = new(script "TSMButton",23,"Key",560,265,0,"KeyWord")
set CompButt = new(script "TSMButton",27,"Comp",560,295,0,"Comps")
set TransButt = new(script"TSMButton",29,"Trans",560,295,0,"Transparency")
set DigButt = new(script "TSMButton",30,"Dig",560,325,0,"Digital")
set CatalogButt = new(script "TSMButton",33,"Catalog",560,265,0,"Catalog1")
set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")
--printForm Buttons
global gMainG,gPrint1G,gQuitG,gLaunchG,gPrint2G
set gMainG = new(script "TSMButton",61,"greyMain",0,0,1,"greyMain")
set gPrint1G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint1")
set gQuitG = new(script "TSMButton",63,"greyQuit",0,0,1,"GreyQuit1")
set gLaunchG = new(script "TSMButton",64,"greyLaunch",0,0,1,"GreyLaunch1")
set gPrint2G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint2")
set gFaxButt = new(script "TSMButton",38,"fax",0,0,1,"TakeMeToForm1")
set gPrintButt = new(script "TSMButton",39,"StdPrint",0,0,1,"PrintSomeStuff")
--launch screen
set gLMenuButt = new(script "TSMButton",14,"MenuLaunch",0,0,1,"greyMain")
set gLOKButt = new(script "TSMButton",15,"OKLaunch",0,0,1,"LaunchBrowser")
if voidP(gNumButtonB) then
-----Extra 2 Buttons either get the normal button behaviour or an EMPTY Button Behaviour:
---Searching BY NUMBER:
--see if it exists:
put 1 into n
put 1 into var
repeat while var <> ""
put getNthFileNameInFolder(NewPath, n) into var
if var = "Macnum.dir" then
put 1 into gNumButtonB
end if
put 1 + n into n
end repeat
--Declare it in variable "GNUMBUTTON" (same again below)
if gNumButtonB = 1 then
set gNumButt = new(script "TSMButton",24,"Num",560,290,0,"Number")
else
set gNumButt = new(script "TSMNothing")
end if
---Appreciation Button
put 1 into n
put 1 into var
repeat while var <> ""
put getNthFileNameInFolder(NewPath, n) into var
if var = "App.dir" then
put 1 into gAppButton
end if
put 1 + n into n
end repeat
if gAppButton = 1 then
set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")
else
set AppButt = new(script "TSMNothing")
end if
--emptyTextFields
end if
---This is the time that the user spends on More CDs/More Catalog section
global gTimeOnEachCatalogPicture
put 300 into gTimeOnEachCatalogPicture
end
on keyDown
global NewPath
if the commandDown and ¼
(the key = "." or the key = "q") and ¼
the exitLock = TRUE or the keyCode = 53 then go to "quit"
end
on BDN1
puppetsound "click"
end
on TakeMeToForm1
go to "form1"
end
on emptyTextFields
put " " into member "name" of castlib "Input FieldS"
put " " into member "title" of castlib "Input FieldS"
put " " into member "colleague" of castlib "Input FieldS"
put " " into member "ctitle" of castlib "Input FieldS"
put " " into member "company" of castlib "Input FieldS"
put " " into member "address" of castlib "Input FieldS"
put " " into member "city" of castlib "Input FieldS"
put " " into member "State" of castlib "Input FieldS"
put " " into member "zip" of castlib "Input FieldS"
put " " into member "telephone" of castlib "Input FieldS"
put " " into member "fax" of castlib "Input FieldS"
put " " into member "email" of castlib "Input FieldS"
put " " into member "photoNumber" of castlib "Input FieldS"
put " " into member "Photographer" of castlib "Input FieldS"
put " " into member "description" of castlib "Input FieldS"
put " " into member "ResearchDescription" of castlib "Input FieldS"
put " " into member "copyConcept" of castlib "Input FieldS"
put " " into member "Quantity" of castlib "Input FieldS"
put " " into member "endUser" of castlib "Input FieldS"
end
on PrintSomeStuff
global gPrintWhat
put the date&&the time&RETURN&RETURN&RETURN&RETURN into member "Date"
set the fontstyle of member "DATE" = "italic"
set the fontsize of member "DATE" = 9
Deactivate(gPrintButt)
----PrintOMatic Routines:
set doc = new(xtra "PrintOMatic_Lite")
if not objectP(doc) then exit
setDocumentName doc, "Information from TSM"
append doc, member "HeaderGraphNormal"
append doc, member "Date"
append doc, member gPrintWhat
append doc, member "copyright"
if doJobSetup(doc) then print doc
set doc = 0
----End pmatic
Deactivate(gPrintButt)
end
on RollControl
everyframe(netButt)
everyframe(findingButt)
everyframe(moreButt)
everyframe(LaunchButt)
everyframe(quitButt)
everyframe(AboutButt)
everyframe(catButt)
everyframe(keyButt)
everyframe(CompButt)
everyframe(transButt)
everyframe(digButt)
everyframe(CatalogButt)
everyframe(AppButt)
everyframe(gNumButt)
checkCursor
end
on CheckCursor
global gPrimException
put rollover(n) into x
if x > 12 and x < 20 or x > 21 and x < 25 or x > 26 and x < 31 or x =33 or x=34 or x>35 and x <40 or x= 47 then
if rollover(gPrimException) then
cursor 0
else
PointerCursor
end if
else
cursor 0
end if
end
on concJob
-- alert "fucking cool"
go to "ideaDisc"
turnOff(compButt)
turnOff(reproButt)
turnOff(TransButt)
TurnOff(DigBUtt)
end
on PushControl
nothing
---hmmm, what was I thinking?
end=
on PointerCursor
-- cursor [13,14]
cursor 280
end
on NormalCursor
cursor 0
end
on cursorRollControlForm1
if rollover (36) or rollover (37) or rollover (38) or rollover (39) or rollover (40)¼
or rollover(41) or rollover(46) or rollover(47) or rollover(48) or rollover (49)¼
or rollover(50) or rollover(53) or rollover(54) or rollover(61) or rollover(62)¼
or rollover(63) or rollover(64) then
PointerCursor
else
NormalCursor
end if
end
on doTheDelay
global gTimeOnEachCatalogPicture
if the timer > gTimeOnEachCatalogPicture then
starttimer
puppettransition 23
else
go the frame
end if
end
on Finding
if the frameLabel <> "Main" then
global gPrimException
put 99 into gPrimException
go to "main"
end if
turnOn(keybutt)
turnOn(catbutt)
turnOn(compbutt)
---Extra Sub Button shadow mask
global gNumButtonB
if gNumButtonB = 1 then
turnOn(gNumButt)
end if
---Push up, turn off and get rid of all the other buttons
deactivate(moreButt)
deactivate(launchButt)
deactivate(quitButt)
turnOff(aboutButt)
turnOff(AppButt)
turnOff(TransButt)
TurnOff(DigBUtt)
turnOff(CatalogButt)
global gPrimException
put 13 into gPrimException
end
on MORE1
global gAppButton
if the frameLabel <> "Main" then
global gPrimException
put 99 into gPrimException
go to "main"
end if
-----Get rid of all buttons not needed:
deactivate(findingButt)
deactivate(launchButt)
deactivate(netButt)
deactivate(quitButt)
turnOff(catbutt)
turnOff(keybutt)
turnOff(compButt)
turnOff(gNumButt)
-----Turn on the used buttons:
TurnOn(AboutButt)
TurnOn(CatalogButt)
TurnOn(TransButt)
TurnOn(DigButt)
if gAppButton then
turnOn(AppButt)
end if
global gPrimException
put 15 into gPrimException
end
on greyLaunch1
go to "Launch"
end
on greyQuit1
go to "quit"
end
on Launch1
nothing
deactivate(findingButt)
deactivate(moreButt)
deactivate(quitButt)
deactivate(netButt)
turnOff(compButt)
turnOff(TransButt)
turnOff(DigBUtt)
turnOff(CatalogButt)
turnOff(catButt)
turnOff(keyButt)
turnOff(gNumButt)
turnOff(AboutButt)
if gAppButton then
turnOff(AppButt)
end if
cursor 0
updatestage
go to "Launch"
global gPrimException
put 1 into gPrimException
end
on Quit1
nothing
deactivate(findingButt)
deactivate(moreButt)
deactivate(launchButt)
deactivate(netButt)
turnOff(compButt)
turnOff(TransButt)
turnOff(DigBUtt)
turnOff(CatalogButt)
turnOff(catButt)
turnOff(keyButt)
turnOff(gNumButt)
turnOff(AboutButt)
if gAppButton then
turnOff(AppButt)
end if
cursor 0
updatestage
go to "quit"
global gPrimException
put 1 into gPrimException
cursor 0
end
on about1
deactivate(CatalogButt)
deactivate(transButt)
deactivate(DigButt)
deactivate(AppButt)
cursor 0
upDateStage
go to "out"
play movie NewPath&"About.Dir"
global gSecException
put 36 into gSecException
cursor 0
end
on category
nothing
deactivate(keyButt)
deactivate(gNumButt)
deactivate(CompButt)
cursor 0
upDateStage
go to "out"
play movie NewPath&"Maccat.dir"
global gSecException
put 22 into gSecException
cursor 0
end
on number
deactivate(keyButt)
deactivate(catButt)
deactivate(CompButt)
updatestage
global gSecException
put 24 into gSecException
cursor 0
go to "out"
play movie NewPath&"Macnum.dir"
cursor 0
updatestage
end
on keyword
deactivate(gNumButt)
deactivate(catButt)
deactivate(CompButt)
upDateStage
cursor 0
go to "out"
global gSecException
put 23 into gSecException
play movie NewPath&"Mackey.dir"
cursor 0
updateStage
end
on Comps
deactivate(gNumButt)
deactivate(keyButt)
deactivate(catButt)
cursor 0
upDateStage
go to "out"
global gSecException
put 27 into gSecException
cursor 0
play movie NewPath&"Maccomp.dir"
end
on Transparency
deactivate(CatalogButt)
deactivate(appButt)
deactivate(DigButt)
deactivate(aboutButt)
cursor 0
updateStage
go to "Transparency"
global gSecException
put 29 into gSecException
cursor 0
end
on Digital
deactivate(CatalogButt)
deactivate(appButt)
deactivate(transButt)
deactivate(aboutButt)
cursor 0
upDateStage
go to "out"
play movie NewPath&"Dig.Dir"
global gSecException
put 30 into gSecException
cursor 0
end
on Internet
deactivate(findingButt)
deactivate(moreButt)
deactivate(quitButt)
deactivate(netButt)
turnOff(compButt)
turnOff(TransButt)
turnOff(DigBUtt)
turnOff(CatalogButt)
turnOff(catButt)
turnOff(keyButt)
turnOff(gNumButt)
turnOff(AboutButt)
if gAppButton then
turnOff(AppButt)
end if
cursor 0
updatestage
go to "Internet"
end
on Catalog1
deactivate(AboutButt)
deactivate(appButt)
deactivate(transButt)
deactivate(digButt)
cursor 0
updateStage
go to "Form2"
global gSecException
put 33 into gSecException
cursor 0
end
on Appreciation
deactivate(CatalogButt)
deactivate(aboutButt)
deactivate(transButt)
deactivate(digButt)
cursor 0
upDateStage
go to "app"
global gSecException
put 36 into gSecException
cursor 0
end
on greyMain
cursor 0
updateStage
go to 1
end
on fixit brokenword
put brokenWord into var
put 1 into n
put length(var) into varc
repeat while n < varc
if char n of var = RETURN then
delete char n of var
end if
put 1 + n into n
end repeat
return var
end
on greyPrint1
put "Client Information"&RETURN into line1
put the text of member "Name"&" - "&The text of member "Title" into line2
put fixit(line2) into line2
put the text of member "Company" into line3
put fixit(line3) into line3
put the text of member "Address" into line4
put fixit(line4) into line4
put the text of member "City" into line5
put fixit(line5) into line5
put "Tel:"&&the text of member "Telephone" into line6
put fixit(line6) into line6
put "Fax:"&&the text of member "Fax" into line7
put fixit(line7) into line7
put "email:"&the text of member "Email" into line8
put fixit(line8) into line8
put "Image Information"&RETURN into line9
put "Photograph Number:"&RETURN&the text of member "PhotoNumber"&RETURN into line10
put "Photographer:"&RETURN&the text of member "Photographer"&RETURN into line11
put "Description:"&RETURN&the text of member "Description"&RETURN into line12
put "Request for More Research"&RETURN into line14
put "Research Description:"&RETURN&the text of member "ResearchDescription"&RETURN into line15
put "Copy or Concept:"&RETURN&the text of member "CopyConcept"&RETURN into line16
--- CheckBoxes (USAGE,SIZE,LOCATION)
if the hilite of member "CheckBox1" then
set UsageVar = "Brochure"
else
if the hilite of member "CheckBox2" then
set UsageVar = "Newspaper Ad"
else
if the hilite of member "CheckBox3" then
set UsageVar = "Consumer Ad"
else
if the hilite of member "CheckBox4" then
set UsageVar = "Trade Ad"
else
if the hilite of member "CheckBox5" then
set UsageVar = "Editorial"
else
if the hilite of member "CheckBox6" then
set UsageVar = "Other"
else
set UsageVar = "Not Specified"
end if
end if
end if
end if
end if
end if
if the hilite of member "checkBox7" then
set SizeVar = "1/4 Page or less"
else
if the hilite of member "CheckBox8" then
set sizeVar = "1/2 Page"
else
if the hilite of member "CheckBox9" then
set sizeVar = "3/4 Page"
else
if the hilite of member "CheckBox10" then
set sizeVar = "Full Page"
else
if the hilite of member "CheckBox11" then
set sizeVar = "Spread"
else
set SizeVar = "Not Specified"
end if
end if
end if
end if
end if
if the hilite of member "CheckBox12" then
set LocationVar = "Inside"
else
if the hilite of member "CheckBox13" then
set locationVar = "Cover"
else
set locationVar = "Not Specified"
end if
end if
put "Project Information"&RETURN into line17
put "Usage:"&&UsageVar into line18
put "Quantity:"&&the text of member "Quantity" into line19
put "Size:"&&SizeVar into line20
put "Location:"&&LocationVar into line21
put "End User/Industry:"&&the text of member "enduser" into line22
put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&line6&RETURN&line7¼
&RETURN&line8&RETURN&RETURN&line9&RETURN&line10&RETURN&line11&RETURN&line12&RETURN¼
&line14&RETURN&line15&RETURN&line16&RETURN&line17&RETURN&line18&RETURN&line19&RETURN&line20¼
&RETURN&line21&RETURN&line22 into var
put "" into member "Form1Build"
put var into member "Form1Build"
set the fontstyle of line 1 of member "Form1Build" = "Bold"
set the fontStyle of line 2 of member "Form1Build" = "plain"
set the fontstyle of line 4 of member "Form1Build" = "Plain"
set the fontStyle of line 5 of member "Form1Build" = "plain"
set the fontstyle of line 11 of member "Form1Build" = "Bold"
set the fontStyle of line 12 of member "Form1Build" = "plain"
set the fontstyle of line 22 of member "Form1Build" = "Bold"
set the fontstyle of line 23 of member "Form1Build" = "plain"
set the fontstyle of line 30 of member "Form1Build" = "Bold"
set the fontstyle of line 31 of member "Form1Build" = "plain"
set the fontsize of member "form1Build" = 10
put the date&&the time&RETURN&RETURN into member "Date"
set the fontstyle of member "DATE" = "italic"
set the fontsize of member "DATE" = 9
Deactivate(gPrint1G)
----PrintOMatic Routines:
set doc = new(xtra "PrintOMatic_Lite")
if not objectP(doc) then exit
setDocumentName doc, "Order Images/Request Research"
append doc, member "HeaderGraph"
append doc, member "Date"
append doc, member "Form1Build"
append doc, member "Copyright"
Deactivate(gPrint1G)
updateStage
if doJobSetup(doc) then print doc
set doc = 0
------End pmatic
end
on greyPrint2
put "Client Information:"&RETURN into line1
put the text of member "Name"&" - "&The text of member "Title" into line2
put fixit(line2) into line2
put the text of member "Company" into line3
put fixit(line3) into line3
put the text of member "Address" into line4
put fixit(line4) into line4
put the text of member "City" into line5
put fixit(line5) into line5
put "Tel:"&&the text of member "Telephone" into line6
put fixit(line6) into line6
put "Fax:"&&the text of member "Fax" into line7
put fixit(line7) into line7
put "E-mail:"&the text of member "Email" into line8
put fixit(line8) into line8
put "Colleague's Name:"&&the text of member "colleague" & " - " & the text of member¼
"cTitle" into line9
put fixit(line9) into line9
put "Please send information on the following TSM Products/Services:" into line10
put "" into ListVar
if the hilite of member "F2Checkbox1" then
put "Catalogue 11"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox2" then
put ListVar&"Catalogue 12"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox3" then
put ListVar&"Catalogue 13"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox4" then
put ListVar&"STOCK CD4"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox5" then
put ListVar&"STOCK CD5"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox6" then
put ListVar&"STOCK CD6"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox7" then
put ListVar&"American Mosaic 3 Catalogue & CD"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox8" then
put ListVar&"American Mosaic 4 Catalogue & CD"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox9" then
put ListVar&"European Mosaic One Catalogue & CD"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox10" then
put ListVar&"European Mosaic Two Catalogue & CD"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox11" then
put ListVar&"Concepts Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox12" then
put ListVar&"Sports/Health & Fitness Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox13" then
put ListVar&"Corporate/Communications Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox14" then
put ListVar&"Science/Medicine Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox15" then
put ListVar&"Industry Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox16" then
put ListVar&"Animals/Nature Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox17" then
put ListVar&"Concepts for the New Millennium Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox18" then
put ListVar&"Black/White & Vintage Idea DiscÖ"&RETURN into ListVar
end if
if the hilite of member "F2Checkbox19" then
put ListVar&"Active Life Idea DiscÖ"&RETURN into ListVar
end if
put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&RETURN&line6&RETURN&line7¼
&RETURN&line8&RETURN&RETURN&line9&RETURN&RETURN&RETURN&line10&RETURN&ListVar into var
put "" into member "Form2Build"
put var into member "Form2Build"
set the fontstyle of line 1 of member "Form2Build" = "Bold"
set the fontstyle of line 2 of member "Form2Build" = "Plain"
set the fontstyle of line 4 of member "Form2Build" = "plain"
set the fontstyle of line 5 of member "Form2Build" = "plain"
set the fontstyle of line 15 of member "Form2Build" = "Bold"
set the fontstyle of line 16 of member "Form2Build" = "plain"
set the fontSize of member "Form2Build" = 10
put the date&&the time&RETURN&RETURN&RETURN into member "Date"
set the fontstyle of member "DATE" = "italic"
set the fontsize of member "DATE" = 9
Deactivate(gPrint2G)
----PrintOMatic Routines:
set doc = new(xtra "PrintOMatic_Lite")
if not objectP(doc) then exit
setDocumentName doc, "Order Catalogues, CDs and Info"
append doc, member "HeaderGraph"
append doc, member "Date"
append doc, member "Form2Build"
append doc, member "Copyright"
Deactivate(gPrint2G)
updateStage
if doJobSetup(doc) then print doc
set doc = 0
------End pmatic
end
on form2Rollover
put rollover(n) into x
if x > 37 and x < 57 then
put the member of sprite x into var
put the name of member var into var
put var&"Graph" into var
set the member of sprite 66 = member var
set the loc of sprite 66 to point(230,240)
end if
end
on cursorRollControlForm2
put rollover(n) into x
if x > 68 and x < 88 or x >60 and x < 66 then
PointerCursor
else
NormalCursor
end if
end